home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / p4 / p4-1_2c.lha / p4-1.2c / lib_f / p4_fargs.f < prev    next >
Text File  |  1993-05-25  |  470b  |  25 lines
  1.  
  2.       subroutine args(i,argv)
  3. C reads the options from the command line
  4.       integer*4 i
  5.       integer i1
  6. C DO NOT declare argv any bigger than 80
  7.       character*80 argv
  8.  
  9.       i1 = i
  10.  
  11. C The following needs to be uncommented on the HP
  12. C$HP9000_800 INTRINSICS ON
  13.       call getarg(i1,argv)
  14. C$HP9000_800 INTRINSICS OFF
  15.  
  16.       end
  17.  
  18.  
  19.       subroutine numargc(icnt)
  20. C retrieves the number of command line arguments
  21.       integer*4 icnt
  22.       icnt = iargc() + 1
  23.       end
  24.  
  25.